This meme was inspired by me as I don’t often go out, and its originality is showcased by the colour used in the text section and the idea of linking each dog on the leash to an activity.
meme
library(magick)
# top half of meme
beginning_text <- image_blank(width = 450,
height = 100,
color = "#ffffff") %>%
# first line
image_annotate(text = "Friend: Hey, wanna hang out?",
color = "black",
size = 15,
font = "Comic Sans",
gravity = "northwest") %>%
#second line
image_annotate(text = "Me: No sorry, I have plans",
color = "black",
size = 15,
font = "Comic Sans",
gravity = "west") %>%
# third line
image_annotate(text = "My plans:",
color = "black",
size = 15,
font = "Comic Sans",
gravity = "southwest")
# bottom half of meme
picture <- image_read("unnamed.jpg") %>%
image_scale(450) %>%
# first dog
image_annotate(text = "reading",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "southwest",
location = "+40+35") %>%
# second dog
image_annotate(text = "eating",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "southwest",
location = "+75+50") %>%
# third dog
image_annotate(text = "watching Gilmore Girls",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "southwest",
location = "+75+80") %>%
# fourth dog
image_annotate(text = "drinking tea",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "center",
location = "+25+85") %>%
# fifth dog
image_annotate(text = "listening to music",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "southeast",
location = "+70+50") %>%
# sixth dog
image_annotate(text = "journalling",
color = "black",
size = 10,
font = "Comic Sans",
gravity = "southeast",
location = "+45+15")
# creating a vector for the meme
meme_vector <- c(beginning_text, picture)
# putting the meme together
meme <- image_append(meme_vector, stack = TRUE)
# saving the final meme as a .png image
image_write(meme, "my_meme.png")
This gif uses a series of frames from a video I took of a moving puppet scene in Melbourne, and its originality comes from the fact that there is only a handful of people who would have this video content.
gif
library(magick)
# creating each frame, where the text gradually shows
frame1 <- image_read("gif1.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame2 <- image_read("gif2.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame3 <- image_read("gif3.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame4 <- image_read("gif4.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame5 <- image_read("gif5.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame6 <- image_read("gif6.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to ya",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame7 <- image_read("gif7.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to ya",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame8 <- image_read("gif8.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to ya",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame9 <- image_read("gif9.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to ya",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
frame10 <- image_read("gif10.jpg") %>%
image_border("pink", "10x10") %>%
image_annotate(text = "top of the morning to ya",
color = "black",
boxcolor = "pink",
size = 60,
gravity = "north",
location = "+50+50")
# putting the frames in order using a vector
frames <- c(frame1, frame2, frame3, frame4, frame5, frame6, frame7, frame8, frame9, frame10)
# creating the gif
animation <-image_animate(frames, fps = 5)
# saving the gif as an image file
image_write(animation, "my_animation.gif")
body {background-color: #CEC2EB}
@import url('https://fonts.googleapis.com/css2?family=Handlee&display=swap');
p {font-family: 'Handlee', cursive; color: #000000; font-size: 150%}
@import url('https://fonts.googleapis.com/css2?family=Henny+Penny&display=swap');
h2 {font-family: 'Henny Penny', cursive; color: #000000; font-weight: bold; font-size: 400%}